﻿<!--#include file="../base.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>提交作业</title>
<link href="../skin/default/main.css" rel="stylesheet" type="text/css" />
</head>

<body>
<%
dim contid,sql,rs,rswp
contid=request.QueryString("contid")
sql="select a.*,b.title as workTlt from workpost a left outer join work b on a.workID=b.workID where wpID="&contid&" and a.[delete]=0 and b.[delete]=0"
set rs=GetRecordset(sql,0)
if not rs.eof and not rs.bof then
%>
<form action="save_judge.asp?contid=<%=contid%>" method="post">
<table border="0" width="100%">
<tr><td colspan="2">批改作业</td></tr>
  <tr>
    <td style="font-weight:bold; width:90px;">作业题目：</td>    
    <td><%=rs("workTlt")%></td>
  </tr>
  <tr>
    <td style="font-weight:bold;">学生作业：</td>    
    <td><%=rs("content")%></td>
  </tr>
  <tr>
    <td style="font-weight:bold; vertical-align:top;">老师评价：</td>
    <td>
    <%
         Dim sBasePath
         sBasePath = "fckeditor/"
         Dim oFCKeditor
         Set oFCKeditor = New FCKeditor
         oFCKeditor.BasePath	= sBasePath
         oFCKeditor.Config("AutoDetectLanguage") = False
         oFCKeditor.Config("DefaultLanguage")    = "zh-cn"
         oFCKeditor.Value	= rs("commContent")
         oFCKeditor.Create "content"
  	%>
  	</td>
  </tr>
  <tr>
    <td style="font-weight:bold;">上传：</td>
    <td><iframe src="upload.asp" width="100%" height="24" frameborder="0" scrolling="no"></iframe></td>
  </tr>
  <tr>
    <td style="font-weight:bold;">评价成绩：</td>
    <td><input type="text" id="judge" name="judge" value="<%=rs("commJudge")%>" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;<input type="submit" value="提交" />&nbsp;&nbsp;<input type="reset" value="重置" /></td>
  </tr>
</table>
</form>
<%
else showMsg "没有相关内容",4,""
end if
rs.close
set rs=nothing
CloseDataBase
%>
</body>
</html>
